home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
QRZ! Ham Radio 14
/
QRZ Ham Radio Callsign Database - Volume 14.iso
/
modfiles
/
table.pl
< prev
next >
Wrap
Perl Script
|
1999-10-09
|
1KB
|
46 lines
#!/bin/perl
print "<HTML>
<HEAD><TITLE>Radio Modification files at QRZ.COM</TITLE></HEAD>
<BODY bgcolor=\"white\">
<a name=\"1\">
<map name=\"main.map\">
<area shape=\"rect\" coords=\"1, 1, 108, 72\" href=\"/index.html\">
<area shape=\"rect\" coords=\"160, 1, 256, 72\" href=\"/webcall.cgi?\">
<area shape=\"rect\" coords=\"275, 1, 344, 72\" href=\"/findham.html?\">
<area shape=\"rect\" coords=\"360, 1, 416, 72\" href=\"/new_hams.html?\">
<area shape=\"rect\" coords=\"429, 1, 500, 72\" href=\"/clubs.html?\">
</map>
<img src=\"http:/gifs/qrzmain.jpg\" height=\"72\" width=\"500\" border=0 usemap=\"#main.map\" ISMAP></a>
<p>
<font size=+2 color=\"#008F00\">Radio modification files at QRZ.COM</font>
<p>
<font size=+2><b><a href=\"/mods/mod_info.html\">What if your make/model
isn't listed here...</a></font>
<H2>Radio Mods Index</H2>
<TABLE BORDER=0 width=800>
";
$line=0;
while (<>)
{
chomp;
/(.*?)\s+(.*?)\s+(.*?)\s+(.*)/;
print "<tr><td><a href=\"./$1\">$1</a></td><td>$2</td>";
print "<td><a href=\"./$1\">$4</a></td></tr>\n";
$line++;
if ($line == 64) {
print "</table>\n<table border=0 width=800>\n";
$line = 0;
}
}
print "</table>\n";
print "<p><a href=\"#1\">Back to Top of Page</a><hr>\n";
print "</BODY></HTML>\n";